home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Commodities / Event! / Rexx / Quit.ced < prev   
Encoding:
Text File  |  1996-09-27  |  500 b   |  21 lines
  1. /* *** Quit.ced 1.00 ***
  2.  Bans Event!-Clock and close current CED-File
  3.  This script can be assigned to the key you use for closing the
  4.  current CED-File. It is a workaround for CED since CED has problems
  5.  with visitor windows when the screen is closed.
  6. */
  7.  
  8. address "rexx_ced"
  9.  
  10. /* survive missing Event!, string results */
  11. options    failat 100
  12. options results
  13. /* Is this the last CED-view? => Ban ClockWindow */
  14. status 66
  15. IF result==1 THEN do
  16.     address "EVENT!" BAN 5
  17.     address command 'wait 1'
  18. end
  19.  
  20. QUIT
  21.